|
|
<%
if len(Session("aperta")) > 0 then
Dim idarticolo
Dim DBString
idarticolo = Request.QueryString("idarticolo")
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\mdb-database\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
If Len(idarticolo) <> 0 Then
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "InformazioniEstese, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo, "
sqlquery = sqlquery & "RiferimentoDiIcona, "
sqlquery = sqlquery & "RiferimentoDiFoto "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "ID = " & idarticolo
Dim RecordsetArticolo
Set RecordsetArticolo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Codice
Dim Denominazione
Dim Informazioni
Dim InformazioniEstese
Dim Confezione
Dim Prezzo
Dim RiferimentoDiIcona
Dim RiferimentoDiFoto
If Not RecordsetArticolo.EOF Then
ID = RecordsetArticolo("ID")
Codice = RecordsetArticolo("Codice")
Denominazione = RecordsetArticolo("Denominazione")
Informazioni = RecordsetArticolo("Informazioni")
InformazioniEstese = RecordsetArticolo("InformazioniEstese")
Confezione = RecordsetArticolo("Confezione")
Prezzo = RecordsetArticolo("Prezzo")
RiferimentoDiIcona = RecordsetArticolo("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticolo("RiferimentoDiFoto")
%>
<%If RiferimentoDiFoto <> "" Then%>
|
<%End If%>
<%=Denominazione%>
<%=Informazioni%>
<%=InformazioniEstese%>
Codice: <%=Codice%>
Confezione: <%=Confezione%>
Prezzo € <%=FormatNumber(Prezzo, 2, -1, 0, -1)%>
|  |
<%End If%>
<%End If%>
<%
RecordsetArticolo.Close
Set RecordsetArticolo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>
<%end if%>
|
| |
|
|
|
|